make_inds <-
function(kvec, type){
	tot <- sum(kvec)
	len <- length(kvec)
	cur <- 1
	block <- 1
	inds <- list()
	while(block <= len){
		inds[[block]] <- cur:(cur+kvec[block] - 1)
		cur <- cur + kvec[block]
		block <- block + 1
	}
	return(inds)
}

